home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1997 #1
/
Amiga Plus CD - 1997 - No. 01.iso
/
demo-versionen
/
maxonc4d_3-demo
/
install-mc4d-demo
< prev
next >
Wrap
Text File
|
1985-03-25
|
9KB
|
314 lines
; $VER: MaxonCINEMA 4D DEMO Install Version 3.0 (11.03.96)
; Script zum Installieren von MaxonCINEMA 4D V2 DEMO
; von Dipl-Ing. Michael Giebel, MAXON Computer GmbH
;
;============================
;=== Deutsche Erklärungen ===
;============================
(set #introduction
(cat "\nMit diesem Installationsprogramm können Sie die Demoversion\n\nMaxonCINEMA 4D V3\n\n auf einer "
"Festplatte installieren bzw. eine vorhandene Version updaten."
"Die komplette Installation läuft "
"automatisch ab. "
"Auf Ihrer Festplatte muß mindestens 3 MB Platz frei sein!\n\n"))
(set #askdir-help
(cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
"Sie gerne MaxonCINEMA 4D installieren möchten. Sie müssen KEIN Verzeichnis "
"anlegen, da das Installationsprogramm dies automatisch macht! "
"\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
"eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
"dieser Übersicht sollten Sie nur die oberen, nicht farblich "
"gekennzeichneten Einträge auswählen.\n"
"Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
"nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
"\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
"\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
"\n\n"
))
(set #help-startup
(cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
"In ihr befinden sich spezielle Kommandos, die einige Programme "
"bereits beim Systemstart ausführen.\n\n"))
(set #no-inst
(cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
"Dateien zu kopieren\n\n"
"!!! Die Installation wird abgebrochen !!!"))
(set #prp-grafikausgabe
(cat "\nSollen Ausgabetreiber für 24 Bit Grafiksysteme installiert werden?\n"))
(set #no-gfxout "Keine")
(set #retina-gfxout "Retina")
(set #merlin-gfxout "Merlin, Visiona, Domino")
(set #egs-gfxout "EGS (u.a. Piccolo, Rainbow, GVP EGS 110/24)")
(set #picasso-gfxout "Picasso")
(set #cyber-gfxout "CyberGraphX")
(set #hlp-grafikausgabe
(cat "\nWenn Sie keine Grafikkarte besitzen und wenn EGS oder CyberGraphX nicht "
"installiert ist, können Sie diese Frage mit \"Weiter\" überspringen.\n"
"Ist eine der genannten Grafikkarten in Ihrem Amiga-System vorhanden, "
"dann können Sie veranlassen, daß der entsprechende Treiber "
"installiert wird.\n"
"Fragen Sie nach den neuesten Grafikkarten-Treibern bei der Fa. MAXON nach.\n\n"
@askchoice-help))
(set #msg-install-cinema-lib
(cat "\nNun wird die Cinema-Ausgabe-Library im LIBS:-Ordner installiert.\n\n"
"Diese Bibliothek wird benötigt, damit CINEMA 4D direkt "
"auf der Grafikkarte Bilder darstellen kann."))
(set #prp-copy-cinelib "Kopieren der Cinema-Ausgabe-Library")
(set #hlp-copy-cinelib
(cat "Die Cinema-Ausgabe-Library enthält leistungsfähige Funktionen zum "
"Betreiben von CINEMA 4D unter den besonderen Fähigkeiten von "
"24 Bit Grafikkarten"
"\n\n"
@copylib-help))
(set #COPVERZ (cat "\nAuf welcher Partition soll MaxonCINEMA 4D\nangelegt werden?"
"\nDas Verzeichnis \"MC4D3-Demo\" wird automatisch erzeugt!"))
(set #wronproc (cat "\nMaxonCINEMA 4D benötigt mindestens einen Motorola MC68020 Prozessor.\n"
"\nDie Installation wird abgebrochen!"))
(set sourcefd-mainlib "RAM:libs/c4dpic.library")
(set sourcefd-cyber "RAM:libs/cyber/c4d.library")
(set sourcefd-egs "RAM:libs/EGS/c4d.library")
(set sourcefd-egsdoc "RAM:libs/EGS/CinemaEGS.guide")
(set sourcefd-merlin1 "RAM:libs/Merlin/cinemaausgabe.library")
(set sourcefd-merlin2 "RAM:libs/Merlin/c4d.library")
(set sourcefd-merlindoc "RAM:libs/Merlin/CinemaMerlin.txt")
(set sourcefd-picasso "RAM:libs/Picasso/c4d.library")
(set sourcefd-retina "RAM:libs/Retina/c4d.library")
; 1=Retina 2=Merlin 3=EGS 4=Picasso 5=CyberGraphX
(set #SIZE 1)
(set @language "Deutsch")
(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))
(Procedure Inst_NormFiles
(if (< (getdiskspace @Dest) @Size)
(abort #no-inst))
(set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)
(Procedure Inst_PatternFiles
(if (< (getdiskspace @Dest) @Size)
(abort #no-inst)
)
(set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
(copyfiles
(prompt @anzeige)
(help @copyfiles-help)
(source @Source)
(pattern @Pattern)
(infos)
(dest @Dest)
)
)
(message #introduction)
(welcome)
(set old_level @user-level)
(complete 0)
(set @user-level 1)
(set @default-src "")
(set processor (database "cpu"))
(if (OR (= processor "68000") (= processor "68010"))
(abort #wrongproc)
)
(set @default-dest ; Verzeichnis aussuchen
(askdir
(prompt #COPVERZ)
(help #askdir-help)
(default "WORK:")
)
)
(set @default-dest (tackon @default-dest "MC4D3-Demo"))
(if ; Verzeichnis erzeugen
(= (exists @default-dest) 0)
(makedir @default-dest (infos))
)
(complete 5)
;(askdisk
; (prompt "\n\n\nBitte legen Sie die Diskette \"MC4D V3 Demo Disk 1\" ein!")
; (help #askdir-help)
; (dest "MC4D3-DEMO1")
;)
(
(set @Source @default-src)
(set @Dest @default-dest)
(set @Pattern "Lhx")
(set @Size #SIZE)
(Inst_PatternFiles)
)
(set @TMP (tackon @default-src "libs.lha"))
(set @Dest_File "RAM:")
(set @TMP2 (tackon @default-dest "LHX"))
(run ("%s -q x %s \"%s\"" @TMP2 @TMP @Dest_File))
(complete 20)
(set gfxout ; Grafikkarte wählen
(askchoice
(prompt #prp-grafikausgabe)
(help #hlp-grafikausgabe)
(choices #no-gfxout #retina-gfxout #merlin-gfxout #egs-gfxout #picasso-gfxout #cyber-gfxout)
(default gfxout)
)
)
(if (= gfxout 1) ; Retina output
(copylib
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-retina)
(dest "LIBS:")
(confirm)
)
)
(if (= gfxout 2) ; Merlin output
(copylib
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-merlin1)
(dest "LIBS:")
(confirm)
)
(copylib
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-merlin2)
(dest "LIBS:")
(confirm)
)
(copyfiles
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-merlindoc)
(dest @default-dest)
(infos)
)
)
(if (= gfxout 3) ; EGS output
(
(copylib
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-egs)
(dest "LIBS:")
(confirm)
)
(copyfiles
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-egsdoc)
(dest @default-dest)
(infos)
)
)
)
(if (= gfxout 4) ; Picasso output
(copylib
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-picasso)
(dest "LIBS:")
(confirm)
)
)
(if (= gfxout 5) ; CyberGraphX output
(copylib
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source sourcefd-cyber)
(dest "LIBS:")
(confirm)
)
)
(run "C:DELETE RAM:libs ALL QUIET") ; aufräumen ...
(copyfiles
(prompt #prp-copy-cinelib)
(help #hlp-copy-cinelib)
(source (tackon @default-src "WICHTIG"))
(dest @default-dest)
(infos)
)
(complete 30)
(working "\n\nProgrammdateien werden entpackt.\n\nBitte warten!")
(set @TMP (tackon @default-src "DEMO-Programm020.lha"))
(set @Dest_File @default-dest)
(set @TMP2 (tackon @default-dest "LHX"))
(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
(complete 40)
(set @TMP (tackon @default-src "MatTex.lha"))
(set @Dest_File @default-dest)
(set @TMP2 (tackon @default-dest "LHX"))
(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
(complete 50)
(set @TMP (tackon @default-src "Szenen.lha"))
(set @Dest_File @default-dest)
(set @TMP2 (tackon @default-dest "LHX"))
(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
(complete 60)
;(askdisk
; (prompt "\n\n\nBitte legen Sie die Diskette \"MC4D V3 Demo Disk 2\" ein!")
; (help #askdir-help)
; (dest "MC4D3-DEMO2")
;)
;(set @default-src "MC4D3-DEMO2:")
(complete 70)
(
(working "\n\nProgrammdateien werden entpackt.\n\nBitte warten!")
(set @TMP (tackon @default-src "DEMO-MagicLink.lha"))
(set @Dest_File @default-dest)
(set @TMP2 (tackon @default-dest "LHX"))
(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
)
(complete 80)
(
(working "\n\nBeispielbilder werden entpackt.\n\nBitte warten!")
(set @TMP (tackon @default-src "Bilder.lha"))
(set @Dest_File @default-dest)
(set @TMP2 (tackon @default-dest "LHX"))
(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
)
(complete 100)
; ------- FERTIG
(exit)
;=============================================================================